home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1993 / Internet Info CD-ROM (Walnut Creek) (1993).iso / networking / terms / kermit / d / vmebld.scl < prev    next >
Encoding:
Text File  |  1988-08-16  |  3.1 KB  |  96 lines
  1. BEGIN
  2.    WHENEVER
  3.       RESULT GT 0 +_
  4.       THEN        +_
  5.          SEND_RESULT_MESSAGE (RES = RESULT,
  6.                               ACT = "QUIT()")
  7.    FI
  8.  
  9.    INT KMT_SRC, KMT_OMF, KMT_REL
  10.  
  11.    ASSIGN_LIBRARY (NAM = KERMIT.SOURCE,
  12.                    LNA = KMT_SRC)
  13.    ASSIGN_LIBRARY (NAM = KERMIT.OMF,
  14.                    LNA = KMT_OMF)
  15.    ASSIGN_LIBRARY (NAM = KERMIT.REL,
  16.                    LNA = KMT_REL)
  17.  
  18.    BEGIN
  19.       DELETE_FILE (NAM = *KMT_OMF.KMT_DATA_MODULE(101))
  20.       DELETE_FILE (NAM = *KMT_OMF.KMT_DH_MODULE(101))
  21.       DELETE_FILE (NAM = *KMT_OMF.KMT_EH_MODULE(101))
  22.       DELETE_FILE (NAM = *KMT_OMF.KMT_FH_MODULE(101))
  23.       DELETE_FILE (NAM = *KMT_OMF.KMT_HELP_MTM(101))
  24.       DELETE_FILE (NAM = *KMT_OMF.KMT_MAIN_MODULE(101))
  25.       DELETE_FILE (NAM = *KMT_OMF.KMT_PH_MODULE(101))
  26.       DELETE_FILE (NAM = *KMT_OMF.KMT_PP_MODULE(101))
  27.       DELETE_FILE (NAM = *KMT_OMF.KMT_SP_MODULE(101))
  28.       DELETE_FILE (NAM = *KMT_OMF.KMT_SP_MTM(101))
  29.       DELETE_FILE (NAM = *KMT_OMF.KMT_UI_MODULE(101))
  30.  
  31.       DELETE_FILE (NAM = *KMT_REL.KERMIT(101))
  32.       DELETE_FILE (NAM = *KMT_REL.KERMIT_MODULE(101))
  33.    END
  34.  
  35.    S3_COMPILE_DEFAULTS (LIS = OBJECT & XREF,
  36.                         DIS = ERRORLINES)
  37.  
  38.    S3_COMPILE (INP = *KMT_SRC.KMT_DATA_MODULE(101),
  39.                OMF = *KMT_OMF.KMT_DATA_MODULE(101))
  40.  
  41.    S3_COMPILE (INP = *KMT_SRC.KMT_DH_MODULE(101),
  42.                OMF = *KMT_OMF.KMT_DH_MODULE(101))
  43.  
  44.    S3_COMPILE (INP = *KMT_SRC.KMT_EH_MODULE(101),
  45.                OMF = *KMT_OMF.KMT_EH_MODULE(101))
  46.  
  47.    S3_COMPILE (INP = *KMT_SRC.KMT_FH_MODULE(101),
  48.                OMF = *KMT_OMF.KMT_FH_MODULE(101))
  49.  
  50.    NEW_MESSAGE_TEXT_MODULE (CON = *KMT_SRC.KMT_HELP_MTM(101),
  51.                             OMF = *KMT_OMF.KMT_HELP_MTM(101))
  52.  
  53.    S3_COMPILE (INP = *KMT_SRC.KMT_MAIN_MODULE(101),
  54.                OMF = *KMT_OMF.KMT_MAIN_MODULE(101))
  55.  
  56.    S3_COMPILE (INP = *KMT_SRC.KMT_PH_MODULE(101),
  57.                OMF = *KMT_OMF.KMT_PH_MODULE(101))
  58.  
  59.    S3_COMPILE (INP = *KMT_SRC.KMT_PP_MODULE(101),
  60.                OMF = *KMT_OMF.KMT_PP_MODULE(101))
  61.  
  62.    S3_COMPILE (INP = *KMT_SRC.KMT_SP_MODULE(101),
  63.                OMF = *KMT_OMF.KMT_SP_MODULE(101))
  64.  
  65.    NEW_MESSAGE_TEXT_MODULE (CON = *KMT_SRC.KMT_SP_MTM(101),
  66.                             OMF = *KMT_OMF.KMT_SP_MTM(101))
  67.  
  68.    S3_COMPILE (INP = *KMT_SRC.KMT_UI_MODULE(101),
  69.                OMF = *KMT_OMF.KMT_UI_MODULE(101))
  70.  
  71.    COLLECT ()
  72. ----
  73.       INPUT(*KMT_OMF.KMT_DATA_MODULE(101)      &
  74.             *KMT_OMF.KMT_DH_MODULE(101)        &
  75.             *KMT_OMF.KMT_EH_MODULE(101)        &
  76.             *KMT_OMF.KMT_FH_MODULE(101)        &
  77.             *KMT_OMF.KMT_HELP_MTM(101)         &
  78.             *KMT_OMF.KMT_MAIN_MODULE(101)      &
  79.             *KMT_OMF.KMT_PH_MODULE(101)        &
  80.             *KMT_OMF.KMT_PP_MODULE(101)        &
  81.             *KMT_OMF.KMT_SP_MODULE(101)        &
  82.             *KMT_OMF.KMT_SP_MTM(101)           &
  83.             *KMT_OMF.KMT_UI_MODULE(101))
  84.       NEWMODULE(*KMT_REL.KERMIT_MODULE(101))
  85.       SUPPRESS
  86.       RETAIN(KERMIT_THE_FROG)
  87.       LISTMODULE
  88.       PERFORM
  89. ++++
  90.  
  91. COMPILE_SCL (INP = *KMT_SRC.KERMIT(101),
  92.              OUT = *KMT_REL.KERMIT(101),
  93.              COD = NOTIFWARNINGS,
  94.              OPT = FIL)
  95.  
  96. ENDÂ